home *** CD-ROM | disk | FTP | other *** search
/ NeXTSTEP 3.3 (Developer)…68k, x86, SPARC, PA-RISC] / NeXTSTEP 3.3 Dev Intel.iso / NextDeveloper / Source / GNU / emacs / src / recomp.com < prev    next >
Text File  |  1987-03-17  |  757b  |  22 lines
  1. $ ! VMS command file to recompile a .C file which needs recompilation.
  2. $ ! This is a .C files that has no .OBJ file or that is newer
  3. $ ! than the corresponding .OBJ file.  This file is self contained
  4. $ ! and does not require you to do anything before running it.
  5. $
  6. $    file = f$search(f$parse(p1, ".C"), 1)
  7. $    cmd = p2
  8. $    if cmd .nes. "" then goto havcmd
  9. $    if "''ccom'" .eqs. "" then @precomp
  10. $    cmd = "ccom"
  11. $havcmd:
  12. $    name = f$parse(file,,,"NAME")
  13. $    obj = name + ".OBJ"
  14. $    if f$search(obj) .eqs. "" then goto docmd
  15. $    if f$cvtime(f$file(file, "RDT")) .les. f$cvtime(f$file(obj, "RDT")) then -
  16.     exit
  17. $ docmd:
  18. $    write sys$output "Compiling ''name'..."
  19. $    'cmd' 'file'
  20. $    purge /nolog 'obj'
  21. $    write sys$output "---------------"
  22.